home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Emulatoren / C64-Files / C64-games / ANT_CAST.ZIP / GAMES3.D64 / 1beach head (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1996-02-05  |  46.0 KB  |  132 lines
  1. 5 SYS15616
  2. 10 GOSUB2300:GOSUB900:FORI=1TO10:C0(I)=1:NEXT
  3. 20 N$(0)="ONE PLAYER GAME":N$(1)="TWO PLAYER GAME
  4. 30 M$(1)[178]"SKILL ONE":M$(2)[178]"SKILL TWO":M$(3)[178]"SKILL THREE":M$(4)[178]"SKILL FOUR
  5. 32 POKE53280,9
  6. 34 SYS25992
  7. 35 GOSUB400:POKE53281,1:PRINT"[147]
  8. 40 [129]I[178]1[164]200:[130]:[153]" ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND
  9. 50 PRINT"       PLEASE SELECT SKILL LEVEL       "
  10. 60 PRINT" [144][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
  11. 70 [129]J[178]0[164]1:[153][163]12)""N$(J):[153][163]12)"STOPTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  12. 80 FORK=1TO4:PRINTTAB(11)J*4+K"= "M$(K):PRINT:NEXT:NEXT
  13. 85 IFPEEK(56585)>=48THENPOKE38487,1:L$="1":GOSUB400:GOTO110
  14. 90 GETL$:IFL$=""THENPRINT"                                ":GOTO40
  15. 94 GOSUB400:IFL$="F"THENGOSUB2000:GOTO35
  16. 96 IFL$="B"THENGOSUB2600:PRINT"":GOTO40
  17. 98 IFL$="T"THENS(0)=0:S(1)=0:POKE53281,0:PRINT"[147]":GOSUB575:GOTO35
  18. 100 IFL$<"1"ORL$>"8"THEN90
  19. 105 POKE38487,0
  20. 110 L=VAL(L$):IFL>4THEN200
  21. 120 POKE38400,L:POKE38401,1:GOTO205
  22. 200 POKE38400,L-4:POKE38401,2
  23. 205 PRINT"[147]"
  24. 210 SYS13255
  25. 212 PRINT"[147]"
  26. 215 S=54272:FORI=0TO20:POKES+I,0:NEXT
  27. 216 RT=PEEK(38408):IFPEEK(38487)=0THEN218
  28. 217 S(0)=0:S(1)=0:POKE53281,0:PRINT"[147]":GOSUB1300:FORI=1TO10000:NEXT:GOTO219
  29. 218 IFRT<>2THENGOSUB500
  30. 219 GOSUB400:GOTO34
  31. 400 FORI=11TO8STEP-1:POKE56576+I,0:NEXT:RETURN
  32. 450 RETURN
  33. 500 POKE53281,0:PRINT"[147]":GOSUB800
  34. 520 GOSUB1100
  35. 530 FORII=0TO1:X=P(II)
  36. 540 GOSUB1300
  37. 550 IFXTHENGOSUB700:GOSUB1500
  38. 560 C0(X)=12
  39. 570 NEXT
  40. 575 FORI=1TO10:C0(I)=1:NEXT
  41. 580 PRINT"[147]":GOSUB1300
  42. 590 FORI=1TO1000:NEXT
  43. 650 RETURN
  44. 700 PRINT:PRINTTAB(6)"ENTER YOUR INITIALS PLAYER";II+1
  45. 720 PRINT:PRINTTAB(8)"MOVE STICK LEFT OR RIGHT
  46. 730 [153][163]10)"PUSH BUTTON TO ENTER
  47. 740 RETURN
  48. 800 FORI=0TO1
  49. 820 SL%=PEEK(38731+I):SH%=PEEK(38746+I)
  50. 830 S1%=SL%/16:S1%=SL%-6*S1%
  51. 840 S2%=SH%/16:S2%=SH%-6*S2%
  52. 850 S(I)=S2%*10000+S1%*100
  53. 860 NEXT
  54. 870 RETURN
  55. 900 FORI=1TO10:I$(I)="...":TT(I)=0:NEXT:RETURN
  56. 1100 FORI=1TO10:C0(I)=7:NEXT
  57. 1120 FORI=0TO1:P(I)=0
  58. 1130 IFS(I)<=TT(10)THEN1200
  59. 1140 P=10
  60. 1150 IFS(I)<=TT(P-1)THEN1170
  61. 1160 P=P-1:IFP>1THEN1150
  62. 1170 IFP=10THEN1190
  63. 1180 FORJ=10TOP+1STEP-1:TT(J)=TT(J-1):C0(J)=C0(J-1):I$(J)=I$(J-1):NEXT
  64. 1190 TT(P)=S(I):C0(P)=1:P(I)=P:I$(P)="..."
  65. 1200 NEXT
  66. 1202 IFP(0)=0THENRETURN
  67. 1204 IFS(0)>=S(1)THENRETURN
  68. 1206 P(0)=P(0)+1:IFP(0)>10THENP(0)=0
  69. 1210 RETURN
  70. 1300 REM   SUB TO DISPLAY SCORES
  71. 1310 PRINT"
  72. 1320 [153][163]17)"SCORES
  73. 1330 PRINTTAB(4)"[159]PLAYER 1"TAB(17)"[158][163][163][163][163][163][163]"TAB(28)"[159]PLAYER 2
  74. 1340 [153][163]4)"FORTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("[163]28)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  75. 1350 FORI=0TO1:PRINTTAB(24*I+11-LEN(STR$(S(I))));S(I);:NEXT:PRINT
  76. 1360 PRINTTAB(13)"[158][164][175][185][185][185][185][185][185][185][185][185][185][175][164]
  77. 1370 [153][163]11)"LENLENLENLENSYS OPENTOP  TENSYS WAITLENLENLENLEN
  78. 1380 PRINTTAB(13)"[158][163][183][183][183][183][183][183][183][183][183][183][183][183][163]
  79. 1390 [129]I[178]1[164]10:[151]646,C0(I)
  80. 1400 [153][163]11[171][181](I[173]10));I;[163]16);I$(I);[163]29[171][195]([196](TT(I))));TT(I)
  81. 1410 [130]
  82. 1420 [142]
  83. 1500 AS[178]1320[170]X[172]40:AC[178]AS[171]1024[170]55296:I$[178]""
  84. 1520 [129]I[178]0[164]2
  85. 1530 [129]J[178]0[164]2:[151]AC[170]J,15:[130]
  86. 1540 [151]AC[170]I,1:K[178]46
  87. 1550 [129]L[178]1[164]200
  88. 1560 [151]AS[170]I,K[170]128:[129]H[178]1[164]50:[130]
  89. 1570 N%[178](256[170][168][194](56320))[175]31
  90. 1580 [139]N%[175]16[167]1640
  91. 1590 [139]N%[175]4[167]K[178]K[171]1:L[178]1:[139]K[178]45[167]K[178]26
  92. 1600 [139]N%[175]8[167]K[178]K[170]1:L[178]1:[139]K[178]27[167]K[178]46
  93. 1610 [139]K[179]1[167]K[178]46
  94. 1620 [139]K[177]46[167]K[178]1
  95. 1630 [130]L
  96. 1635 [142]
  97. 1640 [139]K[178]46[167]I$[178]I$[170][199](K):[137]1660
  98. 1650 I$[178]I$[170][199](64[170]K)
  99. 1660 [129]H[178]1[164]500:[130]:[130]I
  100. 1670 I$(X)[178]I$:[142]
  101. 2000 S[178]54272:[129]I[178]0[164]20:[151]S[170]I,0:[130]
  102. 2020 [151]S[170]21,0:[151]S[170]23,247:[151]S[170]24,31
  103. 2030 [153]"LOADCHANGING FILTER CUTOFF SETTINGS"
  104. 2040 [153]"PRESS <F1> TO INCREASE
  105. 2050 PRINT"      <F3> TO DECREASE
  106. 2060 [153]"   <SPACE> TO TEST SOUND
  107. 2070 PRINT"       </> TO EXIT
  108. 2080 C[178][194](8256[170]3):[158]8289:[153]"CUTOFF FREQ (HI)";C
  109. 2090 [129]I[178]1[164]10000:[161]A$:[139]A$[178]""[167][130]:[142]
  110. 2100 [139]A$[178]"INPUT"[167]C[178]C[170]1:[139]C[177]255[167]C[178]255:[137]2150
  111. 2110 [139]A$[178]"DIM"[167]C[178]C[171]1:[139]C[179]0[167]C[178]0:[137]2150
  112. 2120 [139]A$[178]" "[167]2150
  113. 2125 [139]A$[178]"INPUT"[176]A$[178]"DIM"[167]2150
  114. 2130 [139]A$[178]"/"[167]2180
  115. 2140 [137]2090
  116. 2150 [151]S[170]22,C
  117. 2160 [158]8790:[153][163]16);"ON     CMDCMDCMDCMDCMD";C
  118. 2170 [137]2090
  119. 2180 S[178]C[170]16:[139]S[177]255[167]S[178]255
  120. 2190 [151]8256[170]2,S
  121. 2200 [151]8256[170]3,C:[151]8256[170]5,C:[151]8256[170]6,C
  122. 2210 S[178]C[171]16:[139]S[179]0[167]S[178]0
  123. 2220 [151]8256[170]4,S
  124. 2230 S[178]C[171]22:[139]S[179]0[167]S[178]0
  125. 2240 [151]8256[170]7,S
  126. 2280 [142]
  127. 2300 [129]I[178]0[164]7:C0(I)[178][194](8256[170]I):[130]
  128. 2340 [142]
  129. 2600 C[178][194](53280)[175]15
  130. 2620 C[178]C[170]1:[139]C[177]15[167]C[178]1
  131. 2630 [151]53280,C:[142]
  132.